source_online <- function(url) {
  fname <- tempfile()
  cat(fname)
  download.file(url, fname)
  source(fname)
  unlink(fname)
}

# source_online("https://gitee.com/ry2an/my_public_functions_r/raw/master/list_picker.R")
